home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / prcl < prev    next >
Internet Message Format  |  1995-03-31  |  2KB
  1. Path: seq!spell
  2. From: Poul-Henning Kamp <phk@data.fls.dk>
  3. Subject:  v01i023:  prcl - Port Recall program v1.0, Part01/01
  4. Newsgroups: comp.sources.hp48
  5. Followup-To: comp.sys.hp48
  6. Approved: spell@seq.uncwil.edu
  7.  
  8. Checksum: 2271184336 (verify with brik -cv)
  9. Submitted-by: Poul-Henning Kamp <phk@data.fls.dk>
  10. Posting-number: Volume 1, Issue 23
  11. Archive-name: prcl/part01
  12.  
  13. BEGIN_DOC prcl.doc
  14. Hi,
  15.  
  16. Here is a small, but very usefull program:  PRCL ( Port Recall )
  17.  
  18. It takes an real on the stack, and recalls all objects (if any) in that
  19. port and leaves the number of objects at the bottom of the stack.  This
  20. allows objects from read-only cards to be recalled.
  21.  
  22. SYNTAX:
  23.  
  24.     Nport --> PRCL --> OBJn, .. OBJ1, Nobj
  25.  
  26. If you do not feed it a real, it will say something like:
  27.     XLIB 2342 23 Error:
  28.     Bad Argument Type
  29. this is a harmless side effect of not having it in a library.
  30.  
  31. If you feed it a negative number you get port 0, if the number is above 2
  32. you get port 2.
  33. END_DOC
  34.  
  35. The source for those who use HACKIT ASC->
  36.  
  37. BEGIN_HACKIT prcl.hak
  38. %%HP: T(1)A(D)F(.);
  39. "@ PRCL.SRC by Poul-Henning Kamp [phk(at)data.fls.dk]
  40. D9D20    @ :
  41. ECE81    @ =CK1&Dispatch
  42. 9FF30    @ =real
  43. D9D20    @ :
  44. AEC81    @ =COERCE
  45. 22912    @ %Ap__RclPort__Ap,O...,Acnt
  46. 88130    @ =DUP
  47. D2E30    @ =#2+
  48. 52330    @ =ROLL
  49. 44230    @ =DROP
  50. FBD81    @ =UNCOERCE
  51. B2130    @ ;
  52. B2130    @ ;
  53. "
  54. END_HACKIT
  55.  
  56. ASC-coded for the rest:
  57.  
  58. BEGIN_ASC prcl.asc
  59. %%HP: T(1)A(D)F(.);
  60. @ PRCL.ASC
  61. "D9D20ECE819FF30D9D20AEC812291288130D2E305233044230FBD81B2130B213
  62. 064FF"
  63. END_ASC
  64.  
  65.  
  66. BYTES: #FF46h    41.0
  67.  
  68. BEGIN_UU prcl.uu
  69. begin 644 prcl
  70. I2%!(4#0X+46=+>#L&/D_T-D"ZHPADB&(,=#B`R4S0"0#OXVQ$@,K,0`KK
  71. ``
  72. end
  73. END_UU
  74.  
  75. -- 
  76. phk@data.fls.dk          ||  A host is a host from coast to coast,
  77. Poul-Henning Kamp      ||  & no one will talk to a host that's close,
  78. FLS DATA A/S          ||  Unless the host (that isn't close)
  79. Phone: (+45) 36 18 12 35  ||  is busy, hung or dead.
  80. Fax:   (+45) 36 18 12 18  ||                 Anon (?) 
  81.  
  82.